Explore the World of CD …rtainment & Home Learning/Explore the World of CD Entertainment and Home Learning (Magnum Design)(Macworld)(1995).iso/*Consumer Demo CD ƒ/*ConsDemo/00001_Script_--movie script 1

Text File | 1995-09-27 | 11KB | 414 lines

--
on startMovie
  Global SysPath

  set the colordepth to 8
  set the exitlock to True
  set the keyDownScript to "checkExit"

  openXlib "FindPrefs"
  -- ShowXlib
  Put FindPrefs(mNew) into PrefsObj
  Put PrefsObj(mDo) into PrefsPath -- string(
  PUT PrefsPath
  Set the itemDelimiter = ":"
  PUT the number of items in PrefsPath
  Delete item (the number of items in PrefsPath) of PrefsPath
  Delete item (the number of items in PrefsPath) of PrefsPath
  Put ":" after char (the number of chars in PrefsPath) of PrefsPath
  Set SysPath = PrefsPath
  PUT SysPath,"SysPath"
  Set the itemDelimiter = ","

end startMovie

on initDemos
  global gSmallScreen,gLargeMovie,gSongPath,gHLPictCNum,gEPictCNum,gHLTextCNum,gETextCNum
  global gHelpStatus, gintroStatus,gDemoPictSnum,gDemoTextSnum,gLanguage,gDemoNameSNum,gDemoMarker
  global gTextPages,gCreditStatus,gDemoName,gDemoText,gCPUokay, gPageCount --EB 9/21

  --check machine type -- is it an 030
  set MachineList = list(1,2,3,4,5,6,7,8,9,11,15,16,17,19,21,22,23,25,27,28,30,31,32,35,42,46,47,48,50,52)
  --some demos won't work onthese machines (not 040 or PPC)

  set gCPUokay = 1
  set MachineType = the machineType
  set listCount = count(MachineList)

  repeat with i = 1 to listCount
    if getAt(MachineList,i) = MachineType then
      set gCPUokay = 0
      exit repeat
    end if
  end repeat

  put "InitDemos"
  set gSmallScreen = FALSE
  set gLargeMovie = the moviePath & the movieName
  set gSongPath = empty

  --show "welcome" help text
  put 1 into gHelpStatus
  set gTextPages = 2 --help text is 2 pages

  if gDemoMarker contains "2" then
    if char 1 of gDemoMarker = "E" then
      set gLanguage = char 3 to 5 of gDemoMarker
    else if char 1 of gDemoMarker = "H" then
      set gLanguage = char 4 to 6 of gDemoMarker
    end if
  else
    put "gdemomarker is empty"
    set gLanguage = "ENG"
    set gDemoMarker = "E2ENG"
    put "gdemomarker =" && gdemomarker
    set gdemoText = "help.Main.Eng.text1"
    put "gdemoText = help.Main.Eng.text1"
  end if
  set gCreditStatus = 0
  set gDemoNameSNum = 26
  set gDemoPictSnum = 28
  set gDemoTextSnum = 29
  set gPageCount = 1
  set gdemoText = "help.Main.Eng.text1"
  set gDemoName = ""
  --puppets: 4,17,26,28,29,47,48
  updateStage
end



on setLanguage newLang
  global gLanguage
  puppetSound "SFX.Click"
  set gLanguage = newLang
  puppetSprite 11,1
  puppetSprite 12,1
  puppetSprite 13,1
  puppetSprite 14,1
  if newLang = "eng" then
    set castHilite to "flag.eng.hilite"
    set castSNum to 13
  else if newLang = "Fre" then
    set castHilite to "flag.fre.hilite"
    set castSNum to 12
  else if newLang = "Ger" then
    set castHilite to "flag.ger.hilite"
    set castSNum to 11
  else if newLang = "Jap" then
    set castHilite to "flag.Jap.hilite"
    set castSNum to 14
  end if
  set the castNum of sprite castSNum to cast castHilite
  updateStage
  startTimer
  repeat while the timer <30
    pause
  end repeat
  set castNohilite to castHilite & "no"
  set the castNum of sprite castSNum to cast castNohilite
  puppetSprite 11,0
  puppetSprite 12,0
  puppetSprite 13,0
  puppetSprite 14,0
  updateStage


  doHelpMain "Lang"
end

on goDemoScreen MarkerName
  global gLanguage,gDemoMarker,gDemoText,gHelpText
  cursor 4
  puppetSound "SFX.Click"
  puppetSprite 19,1
  puppetSprite 20,1
  if MarkerName contains "E2" then
    set the castnum of sprite 19 to cast "E2.door.blue"
  else if MarkerName contains "HL2" then
    set the castnum of sprite 20 to cast "HL2.door.blue"
  end if
  updateStage
  repeat with i=1 to 30
    nothing
  end repeat
  set gHelpText = gDemoText
  set gDemoMarker = MarkerName & gLanguage
  puppetSprite 19,0
  puppetSprite 20,0
  goMarker gDemoMarker
end

on goMarker MarkerName
  global gDemoText
  puppetSprite 4, 0
  puppetSprite 17, 0
  puppetSprite 28, 0
  puppetSprite 29, 0
  puppetSprite 26, 0
  puppetSprite 47, 0
  puppetSprite 48, 0

  go MarkerName
end

on putMsg theMsg
  put theMsg
end

on playSong songNum
  global gSongPath
  set songPath1 = the moviePath & "MusicFiles:"
  if songNum = 1 then
    set songPath = songPath1 & "PleasantSt.AIFF"
  else   if songNum = 2 then
    set songPath = songPath1 & "Memorial.AIFF"
  else if songNum = 3 then
    set songPath = songPath1 & "ShowDown.AIFF"
  else if songNum = 4 then
    set songPath = songPath1 & "Running.AIFF"
  end if
  if songPath = gSongPath then
    if soundBusy(2) then
      nothing
    else
      sound playFile 2, songPath
    end if
  else
    sound playFile 2, songPath
  end if
  set gSongPath = songPath
end


on musicOff
  -- to toggle on and off the bg music,
  -- hold down shift key and click the apple
  if the shiftDown then
    if the volume of sound 2 = 255 then
      set the volume of sound 2 to 0
    else if the volume of sound 2 = 0 then
      set the volume of sound 2 to 255
    end if
  end if
end musicOff


on goHelp
  global gHelpStatus,gDemoTextSNum,gLanguage,gTextPages,gDemoText,gDemoMarker,gHelpState
  global gDemoNameSNum,gPageCount,gDemoPictSnum
  cursor 4

  updateStage
  puppetSprite gDemoTextSNum,1 --29
  puppetSprite 48,1 --for page turn arrows, mask
  puppetSprite 26,1 --for instructions title
  puppetSprite 17,1 -- for help button hilite

  set gHelpState = 1

  if gDemoMarker contains "HL2" then
    if gLanguage = "jap" then
      set gTextPages = 6
    else
      set gTextPages = 3
    end if
    set HelpCast to "Help" & gDemoMarker & ".text1"
  else if gDemoMarker contains "E2" then
    if gLanguage = "jap" then
      set gTextPages = 4
    else
      set gTextPages = 2
    end if
    set HelpCast to "Help" & gDemoMarker & ".text1"
  end if

  if gDemoMarker contains "HL2" then
    set pageStatus = "pageTurnArrowsHL"
    set the castNum of sprite 17 to cast "help.hiliteHL"
    set the castNum of sprite gDemoNameSNum to cast "instructionsHL.name"
    set the castNum of sprite gDemoPictSnum to cast "appleLogo.pict"
  else if gDemoMarker contains "E2" then
    set pageStatus = "pageTurnArrowsE"
    set the castNum of sprite 17 to cast "help.hiliteE"
    set the castNum of sprite gDemoNameSNum to cast "instructionsE.name"
    set the castNum of sprite gDemoPictSnum to cast "appleLogo.pict"
  end if

  set the castNum of sprite 48 to cast pageStatus

  set the castNum of sprite gDemoTextSNum to cast HelpCast
  set gDemoText = HelpCast

  updateStage
  puppetSound 0
  cursor -1
end goHelp

on HelpStatus --called from goIndexDemoHL and goIndexDemoE
  global gHelpState,gdemoMarker

  if gHelpState = 1 then
    puppetSprite 17,1 -- for help button hilite
    if gDemoMarker contains "HL2" then
      set the castNum of sprite 17 to cast "help.nohiliteHL"
    else if gDemoMarker contains "E2" then
      set the castNum of sprite 17 to cast "help.nohiliteE"
    end if
    puppetSprite 17,0
    updateStage
  else
    --do nothing
  end if
end

on doHelpMain function
  --for help text display on Main screen only
  global gHelpStatus,gLanguage,gPageCount,gCreditStatus,gDemoText,gTextPages
  puppetSprite 29, 1
  puppetSprite 48,1
  puppetSprite 4,1

  if function = "toggleOff" then
    if gHelpStatus = 0 then
      puppetSound "sfx.click"
      set gDemoText = "Help.Main." & gLanguage & ".text1" --??
      set the castNum of sprite 29 to cast gDemoText
      set the castNum of sprite 48 to cast "pageTurnArrowsM"
      if gCreditStatus = 1 then
        set gCreditStatus = 0
      end if

      set gHelpStatus =1
    else if gHelpStatus >0 then
      puppetSound "sfx.click"
      set the castNum of sprite 29 to cast "videowall"
      set the castNum of sprite 48 to cast "pageTurnMaskM"
      set gHelpStatus = 0
    end if

  else if function = "lang" then
    if gLanguage = "Jap" then set gTextPages = 5
    if gLanguage = "Eng" then set gTextPages = 2
    if gLanguage = "Fre" then set gTextPages = 2
    if gLanguage = "Ger" then set gTextPages = 2

    if gHelpStatus = 0 then
      if gCreditStatus = 1 then set gCreditStatus = 0
      set gDemoText = "Help.Main." & gLanguage & ".text1"
      set the castNum of sprite 29 to cast gDemoText
      set the castNum of sprite 48 to cast "pageTurnArrowsM"

      set gPagecount = 1
      set gHelpStatus = 1
    else if gHelpStatus = 1 then
      set gDemoText = "Help.Main." & gLanguage & ".text1"
      set the castNum of sprite 48 to cast "pageTurnArrowsM"
      set the castNum of sprite 29 to cast gDemoText

      set gPagecount = 1
    end if
  end if
  puppetsound 0
  updateStage
end

on retMain
  global gDemoText, gHelpText, gDemoMarker
  cursor 4
  --puppetSound "SFX.Click"
  puppetSprite 4, 0
  puppetSprite 17, 0
  puppetSprite 28, 0
  puppetSprite 29, 0
  puppetSprite 26, 0
  puppetSprite 48, 0

  set gDemoMarker = "Main"
  set gDemoText = gHelpText
  updateStage
  go to frame "Main"
  puppetSound 0
  cursor -1
end

on retmain2
  global gDemoText, gHelpText, gDemoMarker
  cursor 4
  puppetSound "SFX.Click"

  set gDemoMarker = "Main"
  go to frame "Main"
  doHelpMain "lang"
  updateStage

  puppetSound 0
  cursor -1
end


on gomarkFrame
  global gmarkFrame,gchooseType,gSmallScreen,gLargeReturnMarker,gDemoName
  if gmarkFrame = "" then
    exit
  else if gmarkFrame = "Sensory Overloadô Demo 1.1:Sensory Overloadô Demo" then
    alert "Sorry, this demo can not be run from the CD-ROM, it must be installed to your hard"&&¨
   "drive. The Sensory Overloadô 1.1 Installer can be found inside the " & quote & "Demos" & ¨
   quote && "Folder on the root level of this CD-ROM."
  else if gmarkFrame = "Foul Playô Demo:Foul Playô 68k" then
    goMarker "CPUcheck"
    exit
  else if gmarkFrame = "Rebel Assault 2 Demo:Rebel Assault 2 Trailer" then
    launchDemoII
  else if gmarkFrame = "Full Throttle Demo:Full Throttle Trailer" then
    launchDemoII
  else if gmarkFrame = "Onslaughtô DemoÉ:Onslaughtô Demo 1.0.5" then
    launchDemoII
  else if gmarkFrame = "Doom:Doom" then
    checkCPUStatus
  else
    LaunchDemo
  end if
end

on checkCPUStatus MachineType
  global gCPUokay
  if gCPUokay >0 then
    LaunchDemoII
  else
    --not an 040 or PPC
    Alert "Sorry! This demo must be run from a Macintosh '040 or Power Macintosh!"
  end if
end

on resetDemos
  global gmarkFrame,gSmallScreen,gDemoNameSNum,gDemoTextSNum,gDemoMarker,gLanguage
  set   gmarkFrame = empty
  set gSmallScreen = FALSE
  set the colorDepth = 8

  gohelp
  cursor -1
end resetDemos

on resetGlobals
  global gdemotext,glanguage,gdemoMarker
  set gdemotext = ""
  set glanguage = ""
  set gdemoMarker = ""

end

--on checkTimer
--  startTimer
--  put "starting timeout!"
--  --startMyTimer
--  repeat while the timer < 600
--    go the frame
--    if the mouseDown then pass
--  end repeat
--  go the frame+1
--end